home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
INERTIA.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
818b
|
22 lines
0 TEXT : HOME
100 PRINT : PRINT "INERTIA is the resistance a body has to any outside force that tries to :": PRINT
101 PRINT
102 GOSUB 520
110 PRINT " Start it into motion": PRINT
112 GOSUB 510
120 PRINT " Slow its motion": PRINT
122 GOSUB 510
130 PRINT " Speed up its motion": PRINT
132 GOSUB 510
140 PRINT " Curve its motion": PRINT
142 GOSUB 510
150 PRINT : PRINT "In other words, to change its motion or state of rest in any way."
152 GOSUB 515
160 PRINT : PRINT : PRINT " EVERY body possesses INERTIA."
170 PRINT : PRINT : GOSUB 515
180 PRINT " Press any key for an example."
190 GET KY$: PRINT CHR$(4);"rUN motion"
500 END
510 FOR I = 0 TO 2000: NEXT : RETURN
515 FOR I = 0 TO 3000: NEXT : RETURN
520 FOR I = 0 TO 4000: NEXT : RETURN